home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok51 / m2 / defs / terminal.def < prev    next >
Text File  |  1993-11-04  |  994b  |  43 lines
  1. DEFINITION MODULE Terminal;
  2. (*$ LargeVars:=FALSE LongAlign:=FALSE NameChk:=FALSE *)
  3.  
  4. (*
  5.  * 13.11.90/bp
  6.  * Neue Prozedur Flush
  7.  * Sicherheitsabfragen auf input,ouput#NIL eingebaut.
  8.  *)
  9.  
  10. FROM SYSTEM IMPORT ADDRESS;
  11.  
  12. VAR waitCloseGadget: BOOLEAN;
  13.  
  14. (* Gibt den Puffer aus *)
  15. PROCEDURE Flush;
  16.  
  17. PROCEDURE BusyRead(VAR ch: CHAR);
  18. PROCEDURE Read(VAR ch: CHAR);
  19.  
  20. (* ACHTUNG: setzt letztes Zeichen IMMER auf 0C !!!!!!!!! *)
  21. PROCEDURE ReadLn(VAR st: ARRAY OF CHAR; VAR len: INTEGER);
  22.  
  23. PROCEDURE Write(ch: CHAR);
  24. PROCEDURE WriteLn;
  25. PROCEDURE WriteString(string: ARRAY OF CHAR);
  26.  
  27. PROCEDURE Format(str:ARRAY OF CHAR; dats:ADDRESS);
  28.  
  29. PROCEDURE FormatS(str:ARRAY OF CHAR; VAR innerStr:ARRAY OF CHAR);
  30.  
  31. (*
  32.  * Spezielles "Format" fuer eine Zahl:
  33.  * Option "l" muß immer angegeben werden, da LONGINT!
  34.  * z.B. ('count: %-5ld',4*5+x-y)
  35.  *)
  36. PROCEDURE FormatNr(str:ARRAY OF CHAR; nr:LONGINT);
  37.  
  38. (* n<0: linksbuendig *)
  39. PROCEDURE WriteInt(x:LONGINT; n:INTEGER);
  40. PROCEDURE WriteHex(x:LONGINT; n:INTEGER);
  41.  
  42. END Terminal.
  43.